(show-paren-command-hook): Cope if matching-paren gives nil.

diff --git a/lisp/paren.el b/lisp/paren.el
index c1237f9733ee99a052f9884c1567f0e3a08aa34a..758ac66c1245b4a3ea1cd21e1bdf352850221edd 100644 (file)
--- a/lisp/paren.el
+++ b/lisp/paren.el
@@ -71,8 +71,9 @@
                    (let ((beg (min pos oldpos)) (end (max pos oldpos)))
                      (and (/= (char-syntax (char-after beg)) ?\$)
                           (setq mismatch
-                                (/= (char-after (1- end))
-                                    (matching-paren (char-after beg)))))))
+                                (not (eq (char-after (1- end))
+                                         ;; This can give nil.
+                                         (matching-paren (char-after beg))))))))
                ;; If they don't properly match, use a different face,
                ;; or print a message.
                (if mismatch